object FormOpArrecMensConv: TFormOpArrecMensConv
  Tag = 23
  Left = 200
  Top = 129
  Width = 1099
  Height = 601
  Caption = 'Arrecada'#231#227'o por conv'#234'nio'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 241
    Top = 0
    Height = 531
  end
  object Panel1: TPanel
    Left = 0
    Top = 531
    Width = 1083
    Height = 32
    Align = alBottom
    TabOrder = 0
    Visible = False
    object bbOK: TBitBtn
      Left = 376
      Top = 4
      Width = 75
      Height = 25
      Caption = 'OK'
      Default = True
      TabOrder = 0
      OnClick = bbOKClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object bbFechar: TBitBtn
      Left = 456
      Top = 4
      Width = 75
      Height = 25
      Caption = '&Fechar'
      TabOrder = 1
      Kind = bkClose
    end
    object pbCons: TProgressBar
      Left = 8
      Top = 8
      Width = 337
      Height = 16
      TabOrder = 2
      Visible = False
    end
    object Animate1: TAnimate
      Left = 352
      Top = 8
      Width = 16
      Height = 16
      CommonAVI = aviFindFile
      StopFrame = 8
      Visible = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 241
    Height = 531
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    Visible = False
    object Panel5: TPanel
      Left = 0
      Top = 82
      Width = 241
      Height = 54
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object grpPeriodo: TGroupBox
        Left = 0
        Top = 0
        Width = 241
        Height = 54
        Align = alClient
        Caption = 'Per'#237'odo'
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 13
          Width = 72
          Height = 13
          Caption = 'Ano/m'#234's inicial'
        end
        object Label2: TLabel
          Left = 120
          Top = 13
          Width = 65
          Height = 13
          Caption = 'Ano/m'#234's final'
        end
        object mskAnoIni: TMaskEdit
          Left = 55
          Top = 27
          Width = 32
          Height = 21
          CharCase = ecUpperCase
          EditMask = '0000;1; '
          MaxLength = 4
          TabOrder = 0
          Text = '2000'
        end
        object cmbMesini: TComboBox
          Left = 7
          Top = 27
          Width = 47
          Height = 21
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 1
          Text = 'JAN'
          Items.Strings = (
            'JAN'
            'FEV'
            'MAR'
            'ABR'
            'MAI'
            'JUN'
            'JUL'
            'AGO'
            'SET'
            'OUT'
            'NOV'
            'DEZ')
        end
        object cmbMesFim: TComboBox
          Left = 119
          Top = 27
          Width = 47
          Height = 21
          ItemHeight = 13
          ItemIndex = 11
          TabOrder = 2
          Text = 'DEZ'
          Items.Strings = (
            'JAN'
            'FEV'
            'MAR'
            'ABR'
            'MAI'
            'JUN'
            'JUL'
            'AGO'
            'SET'
            'OUT'
            'NOV'
            'DEZ')
        end
        object mskAnoFim: TMaskEdit
          Left = 167
          Top = 27
          Width = 33
          Height = 21
          CharCase = ecUpperCase
          EditMask = '0000;1; '
          MaxLength = 4
          TabOrder = 3
          Text = '2006'
        end
      end
    end
    object GroupBox4: TGroupBox
      Left = 0
      Top = 32
      Width = 241
      Height = 50
      Align = alTop
      Caption = 'Postos'
      TabOrder = 1
      object cmbPostos: TComboBox
        Left = 8
        Top = 16
        Width = 225
        Height = 21
        ItemHeight = 13
        TabOrder = 0
      end
    end
    object rgTipoMesaMes: TRadioGroup
      Left = 0
      Top = 0
      Width = 241
      Height = 32
      Align = alTop
      Caption = 'Tipo de Remunera'#231#227'o'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Normal'
        'Todos juntos')
      TabOrder = 2
    end
    object GroupBox2: TGroupBox
      Left = 0
      Top = 136
      Width = 241
      Height = 129
      Align = alTop
      Caption = 'Sele'#231#227'o de conv'#234'nios/operadoras'
      TabOrder = 3
      object spbInverter: TSpeedButton
        Left = 121
        Top = 93
        Width = 111
        Height = 21
        Hint = 'Clique aqui para inverter a sele'#231#227'o'
        Caption = 'Inverter sele'#231#227'o'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
          3333333777333777FF33339993707399933333773337F3777FF3399933000339
          9933377333777F3377F3399333707333993337733337333337FF993333333333
          399377F33333F333377F993333303333399377F33337FF333373993333707333
          333377F333777F333333993333101333333377F333777F3FFFFF993333000399
          999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
          99933773FF777F3F777F339993707399999333773F373F77777F333999999999
          3393333777333777337333333999993333333333377777333333}
        NumGlyphs = 2
        OnClick = spbInverterClick
      end
      object Label7: TLabel
        Left = 8
        Top = 14
        Width = 29
        Height = 13
        Caption = 'Grupo'
      end
      object Label9: TLabel
        Left = 8
        Top = 53
        Width = 46
        Height = 13
        Caption = 'Subgrupo'
      end
      object Label4: TLabel
        Left = 172
        Top = 52
        Width = 29
        Height = 13
        Caption = 'Ativos'
      end
      object cbTodos: TCheckBox
        Left = 8
        Top = 96
        Width = 113
        Height = 17
        Caption = 'Marcar/desmarcar'
        TabOrder = 0
        OnClick = cbTodosClick
      end
      object SUBGRUPO: TComboBox
        Left = 8
        Top = 68
        Width = 153
        Height = 21
        ItemHeight = 13
        TabOrder = 1
        OnClick = SUBGRUPOClick
        Items.Strings = (
          'Sim'
          'N'#227'o'
          'Indiferente')
      end
      object ATIVO: TComboBox
        Left = 172
        Top = 67
        Width = 61
        Height = 21
        ItemHeight = 13
        TabOrder = 2
        Text = 'Sim'
        OnClick = SUBGRUPOClick
        Items.Strings = (
          'Sim'
          'N'#227'o'
          'Todos')
      end
      object GRUPO: TComboBox
        Left = 8
        Top = 29
        Width = 225
        Height = 21
        ItemHeight = 13
        TabOrder = 3
        OnClick = GRUPOClick
        Items.Strings = (
          'Sim'
          'N'#227'o'
          'Indiferente')
      end
    end
    object chkConvenios: TCheckListBox
      Left = 0
      Top = 265
      Width = 241
      Height = 266
      Align = alClient
      ItemHeight = 13
      TabOrder = 4
    end
  end
  object pcRel: TPageControl
    Left = 244
    Top = 0
    Width = 839
    Height = 531
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = 'Remunera'#231#227'o Conv'#234'nios'
      object dxGDiaDia: TdxDBGrid
        Tag = 5
        Left = 0
        Top = 0
        Width = 831
        Height = 503
        Bands = <
          item
            Caption = 'Identifica'#231#227'o'
            Fixed = bfLeft
            Width = 190
          end
          item
            Alignment = taLeftJustify
            Caption = 'Valores'
            MinWidth = 0
            Width = 345
          end>
        DefaultLayout = False
        HeaderPanelRowCount = 1
        KeyField = 'RELCREDITO_CODIGO'
        ShowGroupPanel = True
        ShowSummaryFooter = True
        SummaryGroups = <
          item
            DefaultGroup = False
            SummaryItems = <
              item
                ColumnName = 'dxGDiaDiaGuias'
                SummaryField = 'Guias'
                SummaryFormat = ' ,0;- ,0'
                SummaryType = cstSum
              end
              item
                ColumnName = 'dxGDiaDiaRELCREDITO_VALOR'
                SummaryField = 'RELCREDITO_VALOR'
                SummaryFormat = 'R$ ,0.00;-R$ ,0.00'
                SummaryType = cstSum
              end
              item
                ColumnName = 'dxGDiaDiaRELCREDITO_TARIFA'
                SummaryField = 'RELCREDITO_TARIFA'
                SummaryFormat = 'R$ ,0.00;-R$ ,0.00'
                SummaryType = cstAvg
              end
              item
                ColumnName = 'dxGDiaDiaRELCREDITO_COMISSAO'
                SummaryField = 'RELCREDITO_COMISSAO'
                SummaryFormat = 'R$ ,0.00;-R$ ,0.00'
                SummaryType = cstSum
              end>
            Name = 'dxGDiaDiaSummaryGroup2'
          end>
        SummarySeparator = ', '
        Align = alClient
        TabOrder = 0
        DataSource = dsConsulta
        Filter.Active = True
        Filter.Criteria = {00000000}
        LookAndFeel = lfFlat
        OptionsBehavior = [edgoAutoSort, edgoEditing, edgoHorzThrough, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
        OptionsCustomize = [edgoBandMoving, edgoBandSizing, edgoColumnMoving, edgoColumnSizing, edgoFullSizing, edgoNotHideColumn]
        OptionsDB = [edgoCanAppend, edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoResetColumnFocus, edgoUseBookmarks, edgoUseLocate]
        OptionsView = [edgoAutoCalcPreviewLines, edgoBandHeaderWidth, edgoInvertSelect, edgoPreview, edgoUseBitmap]
        PreviewFieldName = 'Preview'
        PreviewLines = 1
        ShowRowFooter = True
        object dxGDiaDiaANO: TdxDBGridMaskColumn
          Width = 55
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ANO'
          SummaryGroupName = 'dxGDiaDiaSummaryGroup2'
        end
        object dxGDiaDiaMES: TdxDBGridMaskColumn
          Width = 65
          BandIndex = 0
          RowIndex = 0
          FieldName = 'MES'
          SummaryGroupName = 'dxGDiaDiaSummaryGroup2'
        end
        object dxGDiaDiaRELCREDITO_PERIODO: TdxDBGridMaskColumn
          Width = 75
          BandIndex = 0
          RowIndex = 0
          FieldName = 'RELCREDITO_PERIODO'
          SummaryGroupName = 'dxGDiaDiaSummaryGroup2'
        end
        object dxGDiaDiaGrupo: TdxDBGridMaskColumn
          Width = 133
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Grupo'
          SummaryGroupName = 'dxGDiaDiaSummaryGroup2'
        end
        object dxGDiaDiaSubGrupo: TdxDBGridMaskColumn
          Width = 114
          BandIndex = 0
          RowIndex = 0
          FieldName = 'SubGrupo'
          SummaryGroupName = 'dxGDiaDiaSummaryGroup2'
        end
        object dxGDiaDiaRELCONVENIO_CODIGO: TdxDBGridMaskColumn
          Width = 92
          BandIndex = 0
          RowIndex = 0
          FieldName = 'RELCONVENIO_CODIGO'
          SummaryGroupName = 'dxGDiaDiaSummaryGroup2'
        end
        object dxGDiaDiaRELCONVENIO_DESCRICAO: TdxDBGridMaskColumn
          Width = 175
          BandIndex = 0
          RowIndex = 0
          FieldName = 'RELCONVENIO_DESCRICAO'
          SummaryGroupName = 'dxGDiaDiaSummaryGroup2'
        end
        object dxGDiaDiaGuias: TdxDBGridCurrencyColumn
          Width = 109
          BandIndex = 1
          RowIndex = 0
          FieldName = 'Guias'
          SummaryFooterType = cstSum
          SummaryFooterField = 'Guias'
          SummaryFooterFormat = '  ,0;- ,0'
          DisplayFormat = ',0;-,0'
          Nullable = False
          SummaryGroupName = 'dxGDiaDiaSummaryGroup2'
        end
        object dxGDiaDiaRELCREDITO_VALOR: TdxDBGridCurrencyColumn
          Width = 114
          BandIndex = 1
          RowIndex = 0
          FieldName = 'RELCREDITO_VALOR'
          SummaryFooterType = cstSum
          SummaryFooterField = 'RELCREDITO_VALOR'
          SummaryFooterFormat = 'R$ ,0.00;-R$ ,0.00'
          Nullable = False
          SummaryGroupName = 'dxGDiaDiaSummaryGroup2'
        end
        object dxGDiaDiaRELCREDITO_TARIFA: TdxDBGridMaskColumn
          Width = 98
          BandIndex = 1
          RowIndex = 0
          FieldName = 'RELCREDITO_TARIFA'
          SummaryFooterType = cstAvg
          SummaryFooterField = 'RELCREDITO_TARIFA'
          SummaryFooterFormat = 'R$ ,0.00;-R$ ,0.00'
          SummaryGroupName = 'dxGDiaDiaSummaryGroup2'
        end
        object dxGDiaDiaRELCREDITO_COMISSAO: TdxDBGridCurrencyColumn
          Width = 114
          BandIndex = 1
          RowIndex = 0
          FieldName = 'RELCREDITO_COMISSAO'
          SummaryFooterType = cstSum
          SummaryFooterField = 'RELCREDITO_COMISSAO'
          SummaryFooterFormat = 'R$ ,0.00;-R$ ,0.00'
          Nullable = False
        end
      end
    end
  end
  object qryGeral: TADOQuery
    Connection = FormPrincipal.cnRegente
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT PRODUCAO_VALSUGER FROM PRODUCAO'
      'WHERE PRODUCAO_CODIGO = 3')
    Left = 264
    Top = 160
  end
  object qryConsulta: TADOQuery
    Connection = FormPrincipal.cnRegente
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select RELGRUPOCONVENIO_DESCRICAO Grupo, RELSUBGRUPOCONVENIO_DES' +
        'CRICAO SubGrupo, '
      'V.RELCONVENIO_CODIGO, V.RELCONVENIO_DESCRICAO, '
      
        'RELCREDITO_PERIODO, RELCREDITO_QTD Guias, RELCREDITO_VALOR, RELC' +
        'REDITO_TARIFA, RELCREDITO_COMISSAO, ANO, MES,  RELCREDITO_CODIGO' +
        '       '
      'from RELCONVENIO V'
      
        'inner join RELCREDITO C on (C.RELGRUPOCONVENIO_CODIGO=V.RELGRUPO' +
        'CONVENIO_CODIGO and C.RELSUBGRUPOCONVENIO_CODIGO=V.RELSUBGRUPOCO' +
        'NVENIO_CODIGO and C.RELCONVENIO_CODIGO=V.RELCONVENIO_CODIGO)'
      
        'inner join RELGRUPOCONVENIO G on (G.RELGRUPOCONVENIO_CODIGO=V.RE' +
        'LGRUPOCONVENIO_CODIGO)'
      
        'inner join RELSUBGRUPOCONVENIO SG on (SG.RELGRUPOCONVENIO_CODIGO' +
        '=V.RELGRUPOCONVENIO_CODIGO and SG.RELSUBGRUPOCONVENIO_CODIGO=V.R' +
        'ELSUBGRUPOCONVENIO_CODIGO)'
      
        'order by V.RELGRUPOCONVENIO_CODIGO, V.RELSUBGRUPOCONVENIO_CODIGO' +
        ', V.RELCONVENIO_DESCRICAO, ANO desc, MES desc')
    Left = 312
    Top = 184
    object qryConsultaGrupo: TStringField
      FieldName = 'Grupo'
      Size = 50
    end
    object qryConsultaSubGrupo: TStringField
      FieldName = 'SubGrupo'
      Size = 50
    end
    object qryConsultaRELCONVENIO_CODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'RELCONVENIO_CODIGO'
    end
    object qryConsultaRELCONVENIO_DESCRICAO: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'RELCONVENIO_DESCRICAO'
      Size = 50
    end
    object qryConsultaRELCREDITO_PERIODO: TStringField
      DisplayLabel = 'Per'#237'odo'
      FieldName = 'RELCREDITO_PERIODO'
      Size = 5
    end
    object qryConsultaGuias: TIntegerField
      FieldName = 'Guias'
    end
    object qryConsultaRELCREDITO_VALOR: TBCDField
      DisplayLabel = 'Vlr. Guias'
      FieldName = 'RELCREDITO_VALOR'
      currency = True
      Precision = 19
    end
    object qryConsultaRELCREDITO_TARIFA: TFloatField
      DisplayLabel = 'Unit'#225'rio'
      FieldName = 'RELCREDITO_TARIFA'
      currency = True
    end
    object qryConsultaRELCREDITO_COMISSAO: TBCDField
      DisplayLabel = 'Comiss'#227'o'
      FieldName = 'RELCREDITO_COMISSAO'
      currency = True
      Precision = 19
    end
    object qryConsultaANO: TIntegerField
      FieldName = 'ANO'
    end
    object qryConsultaMES: TIntegerField
      FieldName = 'MES'
    end
    object qryConsultaRELCREDITO_CODIGO: TAutoIncField
      FieldName = 'RELCREDITO_CODIGO'
      ReadOnly = True
    end
  end
  object dsConsulta: TDataSource
    DataSet = qryConsulta
    Left = 328
    Top = 192
  end
end
